COMMENT ⊗   VALID 00005 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(declare 
C00006 00003	(baz 50)
C00007 00004
C00008 00005	dir *.tim/foo
C00024 ENDMK
C⊗;
(declare 
 (fasload meter fas))
(declare 
 (setq meter:count-only t))

;(meter:meter baz
;	     (meter-funs ((+ "+'s")(= "='s"))
;			 (defun baz (n)
;				(do ((n n (1- n))
;				     (a 0))
;				    ((= n 0) a)
;				    (foo n)
;				    (setq a (+ a n)))) )
;	     (meter-funs ((+ "+'s")(= "='s"))
;			 (defun foo (n)
;				(do ((n n (1- n))
;				     (a 0))
;				    ((= n 0) a)
;				    (setq a (+ a n))))))

(meter:meter baz
	     (meter-funs ((+ "+'s")(= "='s")(foo "Calls to FOO"))
			 (defun baz (n)
				(mn "baz" baz)
				(do ((n n (1- n))
				     (a 0))
				    ((= n 0) a)
				    (foo n)
				    (setq a (+ a n)))))   
 	     (meter-funs ((+ "+'s")(= "='s"))
			 (defun foo (n)
				(mn "Foo" foo)
				(do ((n n (1- n))
				     (a 0))
				    ((= n 0) a)
				    (setq a (+ a n))))))


(meter:meter baz
	     (meter-funs ((cdr "cdr")(car "car")
				     (foo "Foo")(setq "Setq")
				     (cdar "car"car)(ztesch "Ztesch")
				     (cdar "cdr" cdr))
			 (defun baz (l)
				(setq l (ztesch l))
				(foo (car l)
				     (cdr l)
				     (cdar l)))))


;(baz 50)
;(meter:report-baz)
;Statistics
;= <calls> (<percentage>) [runtime (<percentage>)]
;
;Meter for: BAZ
;='s = 51 (33.77%) [0.0 (0.0%)]
;Calls to FOO = 50 (33.11%) [0.06 (100.0%)]
;+'s = 50 (33.11%) [0.0 (0.0%)]
;Total = 151	0.06
;
;Meter for: FOO
;='s = 1325 (50.96%) [0.02 (64.52%)]
;+'s = 1275 (49.04%) [0.011 (35.48%)]
;Total = 2600	0.031
;T 
;(baz 50)
;(meter:report-baz)
;Statistics
= <calls> (<percentage>)
;
;Meter for: BAZ
;='s = 51 (33.77%)
;Calls to FOO = 50 (33.11%)
;+'s = 50 (33.11%)
;Total = 151
;
;Meter for: FOO
;='s = 1325 (50.96%)
;+'s = 1275 (49.04%)
;Total = 2600

Meter for: MATCH
Cars = 1319800 (34.63%) [10.632 (19.37%)]
Eqs = 755700 (19.83%) [6.953 (12.67%)]
Nulls = 504100 (13.23%) [4.369 (7.96%)]
Cdrs = 483400 (12.68%) [3.852 (7.02%)]
Conses = 239200 (6.28%) [21.24 (38.69%)]
Char1 = 226800 (5.95%) [6.777 (12.35%)]
MATCH = 213600 (5.6%)
Nconcs = 69000 (1.81%) [1.071 (1.95%)]
Returns = 0 (0.0%) [0.0 (0.0%)]
Total = 3811600	[54.894]
dir *.tim/foo


copy jqj.tim←SCCPP.TIM[TIM,LSP],DOLPHI.TIM[TIM,LSP],780.TIM[TIM,LSP],DOLPH.TIM[TIM,LSP]
copy jqj.tim←jqj.tim,DERIV.TIM[TIM,LSP],TAK.TIM[TIM,LSP],DDERIV.TIM[TIM,LSP],FPRINT.TIM[TIM,LSP]
copy jqj.tim←jqj.tim,PUZZLE.TIM[TIM,LSP],FRPOLY.TIM[TIM,LSP],TAKL.TIM[TIM,LSP],TAKR.TIM[TIM,LSP]
copy jqj.tim←jqj.tim,CACHE.TIM[TIM,LSP],FFT.TIM[TIM,LSP],UNCACH.TIM[TIM,LSP],FDDERI.TIM[TIM,LSP]
copy jqj.tim←jqj.tim,F2.TIM[TIM,LSP],TRIANG.TIM[TIM,LSP],BROWSE.TIM[TIM,LSP],DIV2.TIM[TIM,LSP]
copy jqj.tim←jqj.tim,TPRINT.TIM[TIM,LSP],FREAD.TIM[TIM,LSP],BOYER.TIM[TIM,LSP],DESTRU.TIM[TIM,LSP]
copy jqj.tim←jqj.tim,PUZZL1.TIM[TIM,LSP],NREVER.TIM[TIM,LSP],TRAVER.TIM[TIM,LSP]


Exit
↑C
.
File already exists, DSK:JQJ.TIM[TIM,LSP].
Type Y to replace.
y


Exit
↑C
.
File already exists, DSK:JQJ.TIM[TIM,LSP].
Type Y to replace.

(plus 15339 2005 2005 1987 13)